home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Dev / powerd / lib / powerd_lib.lha / PowerD / Exists.ass < prev    next >
Encoding:
Text File  |  2000-02-26  |  365 b   |  25 lines
  1. ; a2 - variable address
  2. ; a1 - list
  3. ; d0 - count
  4. ; a0 - quote address
  5.  
  6.     xdef    _Exists
  7.  
  8. _Exists    move.w    d0,d2        ; count
  9.     moveq    #0,d0        ; truth value ->d1
  10.     beq.s    .1
  11.     subq.l    #1,d2
  12.     move.l    d0,d1
  13. .l    move.l    (a1)+,(a2)
  14.     movem.l    d1-d2/a0-a2,-(a7)
  15.     jsr    (a0)
  16.     movem.l    (a7)+,d1-d2/a0-a2
  17.     tst.l    d0
  18.     bne.s    .2
  19.     dbra    d2,.l
  20.     bra.s    .3
  21. .2    moveq    #-1,d1
  22.     dbra    d2,.l
  23. .3    move.l    d1,d0
  24. .1    rts
  25.